home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0769A.ZIP / ISMMDEMO.PRG < prev    next >
Text File  |  1987-08-29  |  1KB  |  65 lines
  1. SET TALK OFF
  2.  
  3. NOMEMOFILE   = '!'
  4. BAD_OPEN     = '$'
  5. READ_ERROR   = '@'
  6. RANGE_ERROR  = '%'
  7. NO_POINTER   = '0'
  8. POINTER      = '1'
  9.  
  10. CLEAR
  11. TEXT
  12.  
  13. Demo program for ISMEMO.BIN (OBJ) -- v. 0.1 Beta
  14.  
  15. This program will scan all records of a database and report which have memo 
  16. fields attached.  Press escape to abort, or any other key to continue...
  17.  
  18. ENDT
  19. WAIT ''
  20.  
  21. dbfname=space(80)
  22. @20,0 SAY "DBF name to scan:" GET dbfname
  23. READ
  24. dbfname=TRIM(dbfname)
  25. m=0
  26. ON ERROR m=ERROR()
  27. USE &dbfname
  28. ON ERROR
  29. IF m <> 0
  30.         ??CHR(7)
  31.         @22,0 SAY "DBF not found!!"
  32.         RETU
  33. ENDIF
  34. LOAD ISMEMO
  35. mdbf=DBF()
  36. m=mdbf+"/"+STR(RECNO())
  37. CALL ISMEMO WITH m
  38. IF LEFT(m,1)=NOMEMOFILE
  39.         ??CHR(7)
  40.         @22,0 SAY "No memo file!!"
  41.         RETU
  42. ENDI
  43. IF LEFT(m,1)=BAD_OPEN
  44.         ??CHR(7)
  45.         @22,0 SAY "Cannot open file!! Is this a network situation?"
  46.         RETU
  47. ENDI
  48.  
  49. memo_count=0
  50.  
  51. DO WHILE .NOT. EOF() .AND. RECNO() < 65000
  52.         @22,0 SAY "Scanning record "+LTRI(STR(RECNO()))
  53.         IF left(m,1)='1'
  54.                 @23,0 SAY "Record number "+LTRI(STR(RECNO()))+": memo found"
  55.                 memo_count=memo_count+1
  56.         ENDI
  57.         SKIP 1
  58.         m=mdbf+"/"+STR(RECNO())
  59.         CALL ISMEMO WITH m
  60. ENDDO
  61. @23,0
  62. @23,0 SAY "Memo records total: "+LTRI(STR(memo_count))
  63. WAIT ''
  64. USE
  65. RETU